﻿Public Class ucFuncionarioRecibo

    Public Property getIdFuncionario() As Integer
        Get
            Return cmbFuncionario.SelectedValue
        End Get
        Set(ByVal value As Integer)
            cmbFuncionario.SelectedValue = value
        End Set
    End Property
    Public Property getNomeFuncionario() As String
        Get
            Return CType(cmbFuncionario.SelectedItem, funcionario_reciboVO).NOME
        End Get
        Set(ByVal value As String)
        End Set
    End Property

    Private Sub ucAutoridades_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not DesignMode Then

            Try

                Dim funcionarioBO As New funcionario_reciboBO

                Dim lista As New Generic.List(Of funcionario_reciboVO)


                lista = funcionarioBO.getFuncionarioRecibos()



                If lista.Count = 0 Then

                    cmbFuncionario.Items.Insert(0, "Não há funcionários cadastrados para esta seção")

                Else

                    cmbFuncionario.DisplayMember = "NOME"
                    cmbFuncionario.ValueMember = "ID_FUNCIONARIO"
                    cmbFuncionario.DataSource = lista

                End If


            Catch ex As Exception
                generica.gravaErro(ex)
            End Try

        End If


    End Sub

    Private Sub cmbFuncionario_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles cmbFuncionario.KeyPress

        e.Handled = True

    End Sub

End Class
